home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 39 / Issue 39.iso / pc / Disclaimer / 00001.ls next >
Encoding:
Text File  |  2000-09-25  |  551 b   |  24 lines
  1. on startMovie
  2.   global gMFCDNo, gAdvertCounter, gAdvert, gAdvertTotal, gAdvertDelay
  3.   gAdvertTotal = the number of castMembers of castLib "Advert"
  4.   gAdvertCounter = 0
  5.   gAdvert = random(gAdvertTotal)
  6.   gAdvertDelay = 400
  7.   the cpuHogTicks = 40
  8.   AdChange()
  9. end
  10.  
  11. on AdChange
  12.   global gAdvertCounter, gAdvert, gAdvertTotal
  13.   if gAdvert = gAdvertTotal then
  14.     gAdvert = 1
  15.   else
  16.     if gAdvert < gAdvertTotal then
  17.       gAdvert = gAdvert + 1
  18.     end if
  19.   end if
  20.   sprite(100).member = member(gAdvert, "Advert")
  21.   updateStage()
  22.   gAdvertCounter = 0
  23. end
  24.